home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_304_zWindow < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.8 KB  |  81 lines
  1. { %filename% -- window methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %WindName%.  The 'z' prefix on this module marks%        %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit %unitname%;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL,
  18.     z%AppName%Intf,
  19.     %AppName%Intf;
  20.     
  21. {----------}
  22. Implementation
  23.  
  24. const
  25.     %WindName%ID%    %= %rsrcID%;        {resource ID for WIND template}
  26.  
  27. {----------}
  28. Procedure Z%WindName%.I%WindName%    (aSupervisor: CDirector);
  29. var
  30.     enclosure:        CView;
  31.     supervisor:        CBureaucrat;
  32.     aSizeBox:        CSizeBox;
  33.     aGroup:            CRadioGroup;
  34. Begin
  35.     IWindow (%WindName%ID, false, gDesktop, aSupervisor);
  36.     itsMainPane := nil;
  37.     itsGopher := aSupervisor;
  38.     enclosure := self;
  39.     supervisor := self;
  40.     
  41.     %if has mainScroll%
  42.         New (mainScroll);
  43.         mainScroll.IViewRes ('ScPn', %paneID%, enclosure, supervisor);
  44.         mainScroll.FitToEnclFrame (true, true);
  45.         enclosure := mainScroll;
  46.         mainPanorama := nil;
  47.     %else%
  48.         %if has growBox%
  49.             New (aSizeBox);
  50.             aSizeBox.ISizeBox (enclosure, supervisor);
  51.         %endif%
  52.     %endif%
  53.     %for each item gen create%
  54.     
  55.     %if has mainScroll%
  56.         if mainPanorama <> nil then begin
  57.             mainScroll.InstallPanorama (mainPanorama);
  58.         end;
  59.     %endif%
  60. End; {I%WindName%}
  61.  
  62. %for each item gen zMake%
  63. {----------}
  64. Procedure Z%WindName%.Activate;
  65. Begin
  66.     inherited Activate;
  67.     gGopher := itsGopher;
  68. End; {Activate}
  69.  
  70. {----------}
  71. Procedure Z%WindName%.DoCommand (theCommand: longint);
  72. Begin
  73.     case theCommand of
  74.         0:    ;
  75.         otherwise
  76.             inherited DoCommand (theCommand);
  77.     end; {case}
  78. End; {DoCommand}
  79.  
  80. End. {%unitname%}
  81.